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FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 
ABSTRACT: 
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.SBTTL DECLARATIONS 
: INCLUDE FILES: 


+ MACROS: 


SMAC_CTLFLGDEF 
$MAC GENVALDEE 
SMAC” SYMBLKDEF 
SMACPSGDEF 


NT. BUFFER CODES 
YMBOL/PSECT BLOCK OFFSETS 
e message codes 


| 

| 

| 

: EQUATED SYMBOLS: 
| 

| 
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: OWN STORAGE: 


C009 09 09 SIN NSN NNN AAA AAA 
WR 0 OONAUE WO OOONAUIS WO 


.PSECT MAC$RO_CODE_P1,NOWRT,GBL,LONG 
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v04-000 PSECT PROCESS .PSECT STATEMENT mits P 94:06:96 EMACRO SRE APSECT.MAR; 1 . 
08 5 .SBTTL PSECT PROCESS .PSECT STATEMENT 
000 : 3 ++ 
44 } ; FUNCTIONAL DESCRIPTION: 
000 0; THIS ROUTINE FULLY PROCESSES THE .PSECT STATEMENT 
00 91 ; OPTIONS ARE PARSED AND A PSECT BLOCK IS ALLOCATED “ANDY 
00 3 ; FILLED IN 
0000 93; 
9009 94 :-- 
$09 38 PSECT TIVE = KPSECT 
03 0005'CF 8 itd 3 BLBS § W*ENBS$G_LOCALSYMB+SYMSL AL: wit “BRANCH IF ENABLE LSB 
FFF8° 30 0005 98 BSBW MACSSET-NEW_LSB NO=-MAKE A NEW LSB NOW 
FFF5' 30 0008 99 108 BSBW  =s MAC$S “RECORD HIGH PC 
FFF2' 30 0008 100 BSBW and te [GET THE PSECT NAME 
6A 50 £9 OO00E 101 BLBC sé ‘BRANCH IF NO PSECT NAME 
56 OO00'CF 9E 0011 198 MOVAB W°HACSGL PSC_LIST,R6 § :YES=-POINT TO PSECT LIST 
52 56) «60 «2(0016~=—s 10 MOVL R6,R2 COPY IN CASE NOTHING IN LIST 
55 4666) «=600 «(0019)—S «104 MOVL § SYMSL_LINK(R6) ,R5 : Get next PSECT entr 
09 13 O01C 105 BEQL 208 TBRANCH. TF NO PSECTS YET 
FFDF' 30 OO1E 106 BSBW MACSSRC_LIST ‘SEE IF PSECT ALREADY DECLARED 
56 51 00 0021 107 MOVL R1,R6 :COPY RESULT IF FOUN 
59 50 E8 0024 108 BLBS R0,60$ ‘BRANCH IF FOUND 
52. DD 0027 109 208: PUSHL R2 ZSTACK ADDRESS OF PREVIOUS 
50 O0000'°CF DO 0029 110 MOVL  W*MACSGL_PSC_BLKP,RO  ;GET POINTER TO PSECT i BLOCK 
12. 12 O0¢e 111 BNEQ 40$ :1F NEQ GO USE | IT 
FFCD' 30 0030 18 30$: BSBW  MACSALL_2_PAGES SALLOCATE TWO PAGES 
000O'cF 50 p0 0033 11 MOVL RO Oy BAL SEL PSC_BLKP :SA VE ADPRESS FOR LATER 
60 O3F8 BF 3C 0038 114 MOVZWL #<102 (RO) ~ Set bytes s in first longword 
04 AO 08 AO 9E 003D 115 MOVAB. 8&(R at } ‘SET OND ONGWORD AS SBOINT R TO FREE 
Q000'CF 9A 0042 116 40$: § MOVZBL BRO) CR) ; Get size of name 
51 D6 004 117 INCL 1 ; Include count byte 
60 51 C2 0049 118 SUBL2 R1,(RO) ; Subtract from bytes avetlenie 
80 13 C2 004c 119 SUBL2 #PSC$K_BLKSIZ,(RO)+ : and subtract fixed size 
DF 19 OO4F 120 BLSS 30$ SIF LSS NOW GO ALLOCA e ANOTHER 
56 60 dO 0051 121 MOVL (RO) ,R6 :GET POINTER TO PSECT BLOCK 
60 51 CO 0054 \$¢ ADDL R1, (RO) ; pet & petnter to end of allocated 
60 13 ¢O 0057 12 ADDL2 #PSC$K_BLKSIZ, (RO) : 
7E 51 £90 OOSA is MOVB R1,- ; oe total length 
66 OO00'CF 51 28 OO05D 125 MOVC3 R1,W*MACSAB_TMPSYM, (R6) ; Copy symbol count/name 
56 53 00 0063 126 MOVL ; Save pointer to block 
63 13 00 6€ 00 e¢ 0066 127 MOVCS #0, (SP) #0, MPSCSK BLKSIZ,(R3) ; Clear rest aot block 
A6 HL 6 b06¢ 1 8 MOVB ($P)+, SYM$B_NAME (R6) ; Store offse 
BED g 1 POPL R 3GET POINTER. to. PREVIOUS PSECT BLOCK 
66 62 00 007 130 MOVL SYMSL ob INK (RG) : Link in new PSECT block 
076 «131 sYMSL LINK 
62 56 dO 0076 1 ‘ MOVL SYASL MEINE CR2) “eee 
05 11 0079 «#1 BRB é 
56 O000'CE 9€ 076 134 50$:  MOVAB wW*PS CTSBLA NK ,R6 USE THE BLANK PSECT 
09 A6 «60080 BF AB. 08 135 60S: BI Su #SYMSM_REF Pstsu_ FLAG(R6S :FLAG PSECT AS REFERENCED 
001A 30 «00 § 1 : BSB MACSPSC_OPT_SCN : SCAN PSECT OPT 
08 1 SINTOUT LW wis PSECT WITCH TO NEW PSect IN PASS 2 
0000'CF 05 a6 DO 091 138 VL “PSC$L BX GTHiRG) we macsét PC :SET NEW 
0000'CF OC A6 9A 0097 139 MOVZBL PSCSB- wnt R6) ,W*MACSGL_PSECT Bt NEW PSECT 
0000'CF 56 p09 090 140 MOV R6,W°MACSGL_PSECTPTR 
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v04-000 SCAN PSECT OPTIONS Bre Ep=19 4 $4:25:98 EMACRO. SRE APSECT.MAR; 1 ” a 
np 143 .SBTTL SCAN PSECT OPTIONS 
OA3 145 MACSPSC_OPT_SCN: 
57 DD OOA 146 PUSAL _R7 “SAVE R7 
0c 09 A600 a OAS 14 BBC #SYMSV_DEF ,SYMS$W_FLAG(R65,10$ ;BRANCH IF PSECT NOT DEFINED 
57 _ OD AS 3¢ OOAA 148 MOVZWL PSCS$W_OPTIONS(R6Y.R7 ;DEFINED---GET DEFINED OPTIONS | 
7E OS b6 QOOAE 14 MOVL  R7,-(SP) :COPY TO -(SP) FOR POSITIVE OPTIONS | 
7E 37 de 0081 130 MCOML Reg (SP) ;COPY COMPLEMENTED OPTIONS TO -(SP) | 
57 01C8 BF 3¢ SOB 138 10$ MOVZWL #PSC$M_DEFAULT,R7 ;NEW PSECT=-SET DEFAULT OPTIONS 
7E 04 00BB 15 CLRL = (SP) :CLEAR POS. AND NEG. OPTIONS 
7E 04 OOBD 138 CLRL = = (SP) bens 
OBF 155 20S: | 
OBF 156 | 
OOBF 157 OPTION_SCAN: 
OD 5A 91 OOBF 158 CMPB ss R10,,#CR ;END OF LINE? 
03 12 00C2 159 BNEQ 10$ :IF NEQ NO 
OOAF 31 O00C4 160 5S: BRW 130$ :YES=-EXIT 
FF36" 30 OOC7 161 10$: # ®BSBW  MACSSKIPSP :SKIP SPACES 
2c «5A «(91 «(O0CA 168 CMPB R10, #*A/,/ :SCAN TO A COMMA? 
08 12 O0O0CD 16 BNEQ 208 :1F NEQ NO 
FF2E' 30 OOCF 164 BSBW MACSGETCHR TYES=-SKIP IT 
FFOB" 30 0002 165 BSBW  MACSSKIPSP :SKIP SPACES AGAIN 
E8 11 0005 166 BRB OPTION. SCAN :CK FOR EOL AGAIN 
OD 5A 91 OOD? 167 208:  CMPB  R10,ACR :GET TO EOL? 
£8 13 OODA 168 BEQL «=s5$ :1F EQL YES--ALL DONE 
04 €1 OODC 169 25$: BBC #CHRSV_NUM_BER, - “BRANCH IF NOT NUMERIC 
34 0000°CA OODE 170 WSMACSAB_CASK_fAaB(R10) 608 | 
08 6€ GE £1 OOE2 171 a8 #PSCSV_ACIGNFLG,(SP),30$ ;YES=-WAS ALIGNMENT SEEN? 
00cc 30 00E6 1% BSBW  OPTION-CONFLICT :YES--REPORT CONFLICT 
FF14' 30 OOE9 17 BSBW $SKP_OPR :SKIP TO COMM L 
D1 4611 OOEC 17% BRB OPTION SCA :AND SCAN NEXT OPTION 
FFOF* 30 OOEE 175 30$: § BSBW  MACSDNOMBER TACCUMULATE NUMERIC ALIGNMENT 
55 QO00'CF DO OOF1 176 MOVL § W*MACSGL_VALUE,R5 :GET ALIGNMENT SCANNED | 
09 55 01 OOF6 177 CMPL = RS, #9 ;LEGAL ALIGNMENT? 
08 18 OOF9 178 BLEQU 408 :IF LEQU Y 
55 09 9A OOFB 179 MOVZBL #9,R5 :NO=-USE PAGE ALIGNMENT 
st 180 SMAC_ERR INVALIGN ; Get error message code 
FA" 30 0103 181 BSBW MACSERRORLN ;REPORT ERROR TO PASS 2 | 
OA 8 0106 186 40$: ASHL #PSCSV_ALIGNMENT,R ; Position alignment 
OF E3 O10A 18 BBCS #PSC$VALIGNFLG,RS :SET ALIGNMENT FLAG 
55 CB O10E 184 50S:  BISL2 RS.R7 iSET IN OPTIONS | 
55 cB 0111 «185 BISL2 R5,(SP) 7SET_IN COMPL. OPTIONS FOR CHECK | 
ek O14 186 BRB OPTION_SCAN :CONTINUE SCANNING | 
g1i8 \33 ; NOT A NUMBER 
0116 190 60$:  BSBW § MACSSYMSCNUP ;SCAN THE OPTION NAME 
119 191 BLBS 70$ :BRANCH IF OPTION SCANNED 
11C 198 SMAC_ERR DIRSY : No--get message code 
igi 19 SBW”  MACSERRORLN :REPORT ERROR TO PASS 2 
124 19% BSBW © MACSSKP_OPR :SKIP TO COMMA 0 
01 f 195 BRB CPTION_SCAN :SCAN NEXT OPTION 
; 4 199 ; LOOK UP THE OPTION 
129 199 70$:  MOVAB W*PSC$G_OPTIONS,RS5 :POINT TO THE OPTIONS 


E 10 
SS PSECT RELATED DIRECTIVES 16-SEP-1984 02:0 AX/VMS Macro V04-00 
PSECT OPTIONS -SEP=19 84: 06: 6 ERACRO SRe APSECT.MAR; 1 
FECF' 30 O12€ BSBW MACS RC_LIST :LOOK IT UP 
0B &f 28 131 BLBS Hits ‘BRANCH IF FOUND 
134 SAC _ERR MNSTPSECOPT : No-=get err 
FEC4' 30 0139 BSBW”  MACSERRORLN SISSUE ERROR TO PASS 2 
FF8O 631 «—-013C BRW oP 110N§ SCAN [SCAN NEXT OP 
55 O05 Al 32 O13F 80$: CVTWL SYMS$L_QAL(R1),R5 ‘GET BITS FOR PTION 
1g 14 143 06 BGTR 1008 ~ :IF GTR NOT COMPLEMENT OF OPTION 
55 55 D2 014 0 MCOML R5,R5 ‘COMPLEM ENTED=-GET UNCOMPLEMENTED 
04 AE 55 03 0148 208 BITL RS 4 (SP) :POSITIVE SET? 
0 1 14€ ©. 209 BEQL 908 SIF EQL NO 
0064 30 O14€ 210 BSBW § OPTION_CONFLICT SYES--ISSUE MESSAGE 
29 11 013] 11 BRB 1208 SCONTINUE SCAN 
57 CA 01 1 90$: BICL2 R5,R7 ‘CLEAR OPTION 
6 55 CB 0156 21 BISL2 R5.(SP) :SET IN NEGATIVE MASK 
18 «11 0139 1% BRB 126$ [CONTINUE SCANNING 
0138 16 : POSITIVE SENSE OPTION 
6— 55 D3 0158 218 100$: BITL  R5,(SP) iWAS COMPLEMENT SET? 
05 13 O1SE 219 BEQL 1106$ 
0052 30 0160 220 BSBW OPTION_CONFLICT ‘TES REPORT ERROR 
OF 11 016 321 BRB 120$ [CONTINUE SCANNING 
57 55 CB 0165 é 110$:  BISL2 R5,R7 ‘SET IN OPTIONS WORD 
04 AE 55 (CB 0168 22 BISL2 R5.4(SP) ‘AND IN POSITIVE MASK 
0355 OF €1 016C 224 BBC #pscsy ALIGNFLG,R5,120$ 31S THIS AN ALIGNMENT OPTION? 
6 55 CB 0170 225 BISL2 R5,(SP "YES=--SET IN NEG. MASK 
FF49 31 173 ee 120$:  BRW OPTION_SCAN [CONTINUE SCANNING OPTIONS 
$178 $s6 : DONE SCANNING OPTIONS 
3309 A600 0176 230 130$: BBS WSYMSV_DEF PSC$W_FLAG(R6),150$ ;BRANCH IF NOT NEW PSECT 
09 A6 = 0081 BF 0178 231 BISW2  #SYMSM~DEF !SYMSM~REF ,PSCSW_FLAG(R6) ;NEW--MARK DEFINED 
0181 232 AN D REFERENCED 
OD A6 0181 233 MOVW  R7,PSC$W OPTIONS (R6) SET T HE OPTION 
0185 234 SINTOUT ty INTS_NEW ‘DEFINE NEW PSeeT IN PASS 2 
Q0000'CF D6 018D 235 INCL @MACSGL_P PSc’M ‘COUNT ANOTHER PSECT 
0100 8F O000'CF B81 0191 236 CMPW W°MACSCL 7 ~pSe “MAX, #256  :DO WE HAVE TOO MANY PSECTS? 
08 1B 0198 237 BLEQU 14 iF LEQU NO 
019A 238 Shace _ERR TOOMNYPSEC : ves s-- cget cod 
FESE* 30 O19F 239 SBW mA CSERRO LN PASS 2 
Oc A6 O0000°CF 90 O1Ag 240 140$:  MOVB MACSGL_PSC_MAX,PSCSB_ ségcne) iset THE PSECT NUMBER 
05 A6 D4 OIA 41 CLRL Bscse _MARLGTACR6S ; CLEAR LENGTH 
OF A6 D4 O1AB 4g CLRL = PSC$L™ CORTGE (Res STAR BN 
08 CO OAE 43 150$:  ADDL2 ee 4,SP CLEAR. TWO WORDS FROM STACK 
57 BEDO 0181 244 POPL R TRESTORE R7 
0S 0184 245 
0185 246 
0185 247 OPTION_CONFLICT: 
01B5 48 SMAC_ERR PSECOPCNFL ; Get message code 
FE43" 31 OBA 249 BRW W*MACSERRORLN TISSUE MESSAGE AND RETURN 
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~SBTTL PROCESS .SAVE DIRECTIVE 


p++ 
; FUNCTIONAL DESCRIPTION: 


SS PSECT R 
SS .SAVE D 
1BD 1 
1BD ; 
18D 
1BD i 
1BD 255 
1BD 36 : CSAVE IS CALLED TO PROCESS THE .SAVE DIRECTIVE. THE 
1BD «257: NUMBER OF THE CURRENT PSECT IS SAVED IN THE PSECT 
1BD 258: SAVE BUFFER. THE PC FOR THE CURRENT PSECT IS SAVED 
18D 3 ; IN PSC$L. CURLOL OF THE CURRENT PSECT'S PSECT SYMBOL BLOCK. 
01BD 261 :-- 
O1BD 6¢ 
1BD 263 CSAVE:: ;DIRECTIVE = KSAVE 
56 O000'CF 9A O18 64 MOVZBL W*MACS$GL_PSC_SBP,R6 [GET BUFFER INDEX 
iF 6560—(Oo91s«*OOC 65 CMPBeR6 #311 S OVERFLOW? 
0B 1B OIC 66 BLEQU § 10 [IF LEQU NO 
01C7 67 SMAC_ERR PSECBUFOVF ;_Yes--get geese e cody 
SA gp DO O1CC 268 MOVL SFORCE END 0 F LINE 
FEZE' 31 O1CF 269 BRW MACSERR “ISSUE AND RETURN 
00000000'E6 O000'CF 90 01D2 270 10$: MOVB UeRACSOL BSECT L*MACSAB_ Pst UE ND) -SAVE PSECT NUMBER 
0000'CF 06 01DB 371 INCL W“MACSCL “PSC SBP 
52. OO00'CF DO O1DF tg ROVE W*MACSGL_P PSECTPTR,R2 ‘GET POINTER To PSECT BLOCK 
OF A2 O000'CF DO O184 27 MOVL ACS$GL~PC Pscal CURLOC(R2) ;SAVE CUR RENT PC 
O1EA 274 SINTOUT ay Ins $ SAVE,R :1SSuE SAV VE TO PASS 2 
FEOB' 30 O1F2 275 BSBW YMSCNUP ‘SEE IF THERE IS AN ARGUMENT 
0p 50 £8 O1FS 276 BLBS RO. 333 ‘BRANCH IF THERE WAS 
OD 5A 91 OB 277 CMPB —s-«R}10, ACR ‘NO=-BUT DID WE GET TO EOL? 
iF 13 OB 278 BEQL = TIF EQL ves 
O1FD 44 20$: shac ERR DIRSYNX : No--c¢ ati it directive syntax 
FDFB' 31 0202 80 BRW MACSERRORLN SREP ORT THE ER ROR 
55 Q000'CF 9£ 020 281 30$: | MOVAB W*MACS$G_LSBNAM,RS :POINT TO LSB NAMES 
FDF3" 30 O20A e8¢ BSBW  MACSSRC“LIST i SEE wif IT IS LEGAL FOR LSB 
ED 50 £9 0200 28 BLBC ~—_ RO, 2 HLF ILL 
00000000'EF46 O000'CF DO 0210 284 MOVL  W*MACSGL_LSB,L“MACSAL _psie SEBERG :YES--SAVE LSB 
07 11 O21A 285 BRB 50$ SAND EXIT 
00000000'EF46 D4 O21C 286 40S: CLRL L*MACSAL_PSC_SLBCR6] ENSURE NO LSB SAVED 
05 0223 287 50$:  RSB 
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-SBTTL PROCESS .RESTORE DIRECTIVE 


pte 
; FUNCTIONAL DESCRIPTION: 


CRESTO IS CALLED TO PROCESS THE .RESTORE PSECT DIRECTIVE. 
CODE IS EMITTED TO PASS 2 TO SWITCH PSECTS. 


SS PSECT R 
S$ .RESTOR 
4 9 
1 $89 
4 291 
4 3¢ 
4 29 
4 294 
4 295 
4 36 
4 29 
4 298 
4 299 CRESTO:: :DIRECTIVE = KRESTORE 
FDD9" 30 4 00 "BSBW MACSSET PC sRECORD 
56 O000'CF dO 7 1 MOVL W*MACSGC_PSC_SBP,R6 :GET CAVE BUFFER INDEX 
09 14 C 0¢ BGT ; Ft R OK 
0 3 0 SMAC_ERR PSECBUFUND et error code 
FOCA' 30 0 04 BSBu MACSERRORPT ‘ REPOR TO PASS 2 
05 0 $ 05 RSB ‘RETURN 
56 «(D7 «(OO 06 10S: DECL R6 ‘BACK UP THE INDEX 
0000'cF 56 DO 0239 307 MOVL R6,W*°MACS$GL_PSC_SBP ‘SAVE IND 
50 00000000'E6 9A 0 § 08 MOVZBL L“MACSAB_ PST_SBF(R6),RO 'GET THE PSECT INDEX 
01 50 91 024 09 CMPB ORO, #1 ;BLANK PSECT? 
07 12 0248 310 BNEQ 20 NEQ NO 
55 0000" CF H 0 4A 1 MOVAB W*PSECTSBLANK,R5 tYES=-SET FOR IT 
55 O000'CF DO 0251 i 20$: MOVL  W*MACSGL_PSC_LIST,RS :POINT TO PSECT List 
36 «613 «40256 «=| 314 BEQL RACES SC_RES_ERR SIF EQL NOTHING THERE 
oc aS 650) «=—91s«0258)=—s 315 308: CMPB 0,PSC$B_ EP etRs) [1S THIS THE RIGHT PSECT? 
07 13 025¢ 316 BEQL 8S [IF EQL YES 
55 65 D0 O25€ 17 MOVL (R5) RS SNO=-LINK TO NEXT 
F512 0261 18 a 60-308 [IF NEQ KEEP LOOKING 
29 «11 0263 19 BRB MACSPSC_RES_ERR ‘PSECT RESTORE ERROR 
0265 320 50$: SINTOUT_LW INTS” REST. R5 Z1SSUE RESTORE TO PASS 2 
O00O'CF 55 DO 026D 321 60$: #MOVL “RS,W HACSEL PSECTPTR “SET NEW PSECT POINTER 
0000" CF 0c AS «9A (OO re 32 MOVZBL Pees SEGERS) W*MACSGL_PSECT ; AND NEW PSECT NUMBER 
QOOO'CF OF AS 00 087 : MOVL  PSCS$L~CURLOC(RS) ,W*MACSGL_PC :SET NEW 
50 $0000000' EF46 DO O27E 4 MOVL SRACSAL _PSC_SLBER6],R0 ;GET THE SAVED LSB NUMBER 
13 0386 325 BEQL 0$ SIF EQL NO SAV VED PSECT NUMBER 
0o00'cr 50 D0 0288 6 MOVL RO,W*MACSGL_LSB ‘SET NEW NP SB 
05 028D 7? 70S: RSB 
O28E 328 
O28 93 MACSPSC RES ERR:: 
o000'cF 00 FB O e 0 ALCS #0,W*MACSERR_INTERN : REPORT INTERNAL DIFFICULTIES 
FD6A' 31 029 31 BRU MACSLAST_CHANCE STAY TUNED FOR QUICK EXIT 
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v04-000 ALIGNMENT DIRECTIVE =SEP-1984 01:47: MACRO.SRCJAPSECT.MAR; 1 (7) | 
0 96 ; .SBTTL ALIGNMENT DIRECTIVE 
$8 5 34+ 
+ § ; FUNCTIONAL DESCRIPTION: | 
96 § ; THIS DIRECTIVE CAUSES THE PC TO BE ALIGNED TO THE SPECIFIED 
96 ; BOUNDARY, WITH THE OPTION OF THE SKIPPED BYTES BEING FILLED 
96 340: WITH A Fut EXPRESSION. 
96 341: 
96 «3-34 
36 44 ALIGN:: ;ALSIGN HEAD = KALIGN 
00 68 06 ES 9 45 BBCC  #FLGSV_EVALEXPR,(R11),.+1 ;DON'T OUTPUT EXPRESSION 
068 07 €3 O29A 46 BBCS  #FLGS$V~EXPOPT,(R11),.41 i ASSUME NICE EXPRESSION 
0000'CF be 029 4 CLRL W*MACSGL_ABSFLA ASSUME ABSOLUTE 
FDSB' 30 O2A 48 BSBW MACSSKIPSP : skip SPACES 
06 £1 OA 49 BBC #CHRSV_N RANCH IF NOT NUMERIC 
OE 0000'CA 02A7 += 350 URACSABL CASK. ReAB(RIO), 3bs 
FD52" 30 O2aB 351 BSBW §MACSONUMBER YES=-GET IT 
50 0000'CF 80 0 AE 3g MOVW URACSGL VALUE ,RO :GET THE RESULT 
51 01 50 78 O28 5 ASHL :ET 2** (VALUE) 
330 O«a 6 87 34 BRB * bgt" FINISH UP 
8 44 28 ; SYMBOLIC ALIGNMENT 
FD44" 30 0289 358 0s: BSBW  MACSSYMSCNUP :SCAN THE SYMBOL 
18 50 9 02BC 59 BLBC Osi ‘BRANCH IF NO SYMBOL SCANNED 
55 00000000 EF E O2BF 60 MOVAB L“BSCS6 _OPTIONS ,R5 ;POINT TO PSEC OPTIONS 
FD37" 30 02¢6 361 BSBW HACE SRC“LIST :LOOK IT UP 
50 €9 02C9 6¢ BLBC = RO, 50$ ~ ZBRANCH IF NOT FOUND 
50 O05 Al DO O2cc %6 MOVL SYM$L_VAL(R1),RO ‘GET THE BITS FOR SYMBOL 
50 O3FF BF 83 0200 364 BITW aPsceR. _ALLOPTNS ,RO ; Is this an alignment? 
a? 0 D3 65 BEQL 608 [IF EQL YES 
0207 367 : INVALID ALIGNMENT 
0207 368 : 
6207 69 50s: “SC_ERR INVALIGN ; Get mease e code 
O20c 370 Bs 3W”  MACSERRORLN TISSUE TO PASS 2 
O2DF 71 C:20 = RO ‘DO NO ALIGNING 
0 E| rg BRB 70$ ae 
0 E 2 : FINISH SYMBOL ALIGNMENT 
Py | 
0 b i é0$: EXTZV wPscsy ALIGNMENT, - :GET EXPONENT VALUE FOR KEYWORD 
E 7 #PSCES ALIGNMENT ,RO,RO 
€8 378 ASHL 1 :CALCULATE ALIGNMENT FACTOR 
EC %379 70$: MOVL So aacéen PSECTPTR,R2 :POINT TO CURRENT PSECT 
Fl 80 EXTZV wPscsy. ACIG GNMENT ,~ :GET PSECT ALIGNMENT 
F3 1 PSC$S~ ALIGNMENT 
F4 : Psc$u. OF sop TIONS ines, R3 
F7 ASHL : CALCULATE PSECT ALIGNMENT 
FB 4 :ALIGNMENT TOO BIG 
F 5 pLeG :1F LEQU NO 
§ MAC YERR AL Petts ;_Yes- “pet code | 
BsBu" MACSERRORLN SISSUE TO PASS 2 
8 8 MOVL R4,R1 [USE PSECT ALIGNMENT 
08 9 80S: MOVL  R1,W*MACSGL_EXPOPVL1 ‘STORE VALUE FOR ALIGN1/ALIGN2 
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ALIGNMENT DIRECTIVE -SEP=1 MACRO. SRCJAPSECT.MAR; 1 (8) V 
11 93 p++ | 
i 33 ; FUNCTIONAL DESCRIPTION: | 
11 395: ALIGNI/ALIGN2 ARE CALLED TO FINISH PROCESSING THE .ALIGN 
11 36 : DIRECT 5. IF NECESSARY, THE PC IS ADJUSTED AND, IF THIS 
i 3 ; 1S ALIGN2, THEN THE FILL’ IS EMITTED TO PASS 2 ALSO. 
11 38 i-- 
11 400 
11. 401 ALIGN1:: ;DIRECTIVE = ALIGN_H 
06 6B 04 €5 0311 40¢ BBCC ereey DATRPT,(R11),ALIGN_COM ;FLAG NO FILE EXPRESSION 
04 11 13 83 BRB ;TYOU NEVER CAN TELL...) 
0317 405 ALIGN2:: ;DIRECTIVE = ALIGN. HEAD EX 
0317 406 sDIRECTIVE = ALIGN-HEAD DCOMMA EXPR 
00 68 04 €3 0 V7 407 cies cone #FLGS$V_DATRPT,(R11),ALIGN_COM ;FLAG FILL EXPRESSION PRESENT 
Q000'CF D5 § 1B 4409 -"TSTL = W°MACSGL_ABSFLAG ABSOLUTE EXPRESSION? 
08 13 O31F 410 BE SIF EQL 
0321 411 ae JERR et 1 3; No-- A error code 
FCD7" 30 05 & aig BSB MACSERR tISSUE ERROR TO PASS 2 
0000" CF bg 0329 413 10$: MOVE UoRACSOL REXPOPVL1, R2  :GET THE ALIGNMENT FACTOR 
46 13 O32E 414 BEQL tos [IF EQL NONE 
53 52 00 0330 415 MOVL  R2,R3 ;COPY IT 
52 D7? (03330416 DECL R 
52. 52 v2 0335 417 MCOML R2,R2 ‘AND COMPLEMENT 
0000'CF DO 03 8 418 OVL  W*MACSGL_PC.R1 ‘GET CURRENT PC 
51 52 CA 033D 419 BICL2 R2,R1 ; 
34 13 0340 420 EQL «=: 408 ‘IF EQL NO ADJUSTMENT NEEDED 
53 51 2 0342 421 SUBL2 R1,R3 
53 DD 20345) 4 ‘ PUSHL RS 
0A 6B 4004) CEG 0847) 4 BBSC FLG$V_DATRPT,(R11),20$ :1S THERE A FILL? 
b368 424 SINTOUT ats INT$_AUGPC C5R3 ‘NO=-AUGMENT PC 
19 11 0353 425 BRB SAND EXIT 
0355 426: 
0393 4 f ; THERE IS A FILL 
9322 429 20$:  SINTOUT_LW INT$_STKL,<W*MACSAL -VALSTACK(R72 ; STACK THE FILL EXPR 
0360 430 SINTOUT“LW INTS~STKL,R3 sSTACK THE FILL COUN 
0368 431 SINTOUT<X_INT$_STRB :STORE REPEATED BY He 
53 BEDO 036E 4 : 30$:  POPL “R3 :GET THE PC AUGMENTATION 
0371 4 SINC_PC R3 SADJUST PC IN PASS 1 ALSO 
05 376 434 40$: RSB 
037 435 
77-436 END 
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PROCESS PSECT RELATED DIRECTIVES 


MACSAPSECT 16-SEP-1984 02:02: AX/VMS Macro V04-00 

Symbol table $7 SFE 384 3 25:98 EMACRO. SRCTAPSECT MAR; 1 

INTS_SETFLAG = 8 ; MACSSET_NEW eeeeeree =X PSCSM 2 44 9 

INTS_SETLONG = MACSSET_PC eeeerere =X PSCSM_WRT 2 1 

INTS_SPIC = 4 MACSSKIPSP keeeeeee =X PSC$S_ALI = 4 

INTS_SPID = 00000025 MACSSKP_OPR eeeerere =X PSCSV-ALI = E 

NT$_STIB = MACS$SRC-LIST eererere =X PSCS$V-ALI T= A 

iNTS_STIL = MACSSYMSCNUP 544555400 PSCS$V—EXE = 6 

INTS_STIW 2 MAC$_ALIGNXC 9709008 PSC$V_GBL = 00000004 

INTS_STKEPT = 00000029 MACS$_DIRSYNX 70906A PSC$V-LIB = 0000 9) 

INTS_STKG = B00 A MAS $— INVALIGN 70912A PSC$V_OVR = 00000 

INTS_STKL = 000 $ B MACS_NOTPSECOPT= 0070919A PSC$V_PIC = 3008 

INTS_STKPC = 0000002C MACS$_PSECBUFOVF= 007091BA PSC$V_RD = 0000000 

INTS_STKS z D MAC$_PSECBUFUND= {O9iC¢ PSCS$V_REL 2 8 9 303 

INTS_ST = 4 MACS$_PSECOPCNFL= 007091 PSCS$V_SHR = 

INTS_STOL = 00000 3 MACS_TOOMNYPSEC= 0070920A PSC$V—VEC = 300 009 

INTS_ST = 000000 MAC_SUBSYS = 00000070 PSCSV_WRT = 3 443 

INTS_STRB = 0000002F OBJSK_BUFSIZ = tit 00 PSC$W_FLAG 0000009 

INT$S_STR = 00000031 OPFSM_LASTOPR = 3008 00 PSCS$W_OPTIONS  0000000D 

INT$S_STRSB = 000000 ; OPFSM_OPTEXP = 00001000 PSECT 00000000 RG =s«OO3 

INTS_STRSW = B00 000 OPFSV-LASTOPR = 0000000D PSECTSBLANK aeeeeeee =X 03 

NTS_STRW = 00000030 OPFS$V-OPTEXP = 0000000C RDX$V_BINARY = 00000000 

INTS_STSB = steals OPTION_CONFLICT 00000185 R 03 RDX$SV_DECIMAL = sea ts 

INTS_STSW = 000000 OPTION SCAN OOOOOOBF R 03 RDOX$V_DOUBLE = 94444 

INTS_ = 00 PSC$B_RAME 00000004 RDX$V_FLOAT = 00000004 

INTS_SUME = 00000039 PSC$B_SEG 0000000C RDX$V_GFLOAT = S44 44 

INTS_' = 00000038 PSC$B_UNUSE 00000008 RDX$V_HEX = 0000000 Fl 
INTS_XOR = 00000008 PSC$G_OPTIONS aeeerere = X 03 RDXS$V_HFLOAT = 00000007 FI 
LSTSR_BUFSIZ = 000000 PSC$K_BLKSIZ 0000013 RDX$V_OCTAL = 00000001 FI 
LSTSK-L_P_PAGE = 000000 ¢ PSC$K-NO_OPTNS = 0000000A PC = 0000000F F| 
LSTSK-TITCE_SIZ= 0000002 PSC$L_CURLOC 0000000F SEMI = 4 FI 
MACSAB_CMSK"TAB eeeeeeee xX 03 PSCSL_LINK 60000000 STBSK_PG_MISS = QOO0000A FI 
MACSAB_PSC SBF teeeeeee KX 03 PSC$L_MAXLGTH 00000005 SYM$B_NAME 0000004 FI 
MAC SYM ss teeeeeee =X 03 PSCS$M_ABS = FFFFFFF? YM$B_SEG 000000C FI 
MACSALC_2 PAGES teeeeeee xX 03 PSCS$M_ALIGNFLG = 90004000 SYM$B_ TOKEN 0000008 FI 
MACSAL_PSC_SLB teeeeeee XK 03 PSC$M_ALLOPTNS = QOO003FF SYMSK_BLKS1Z 0000000D FI 
MACSAL-VALSTACK eeeeeee xX 03 PSCSM_BYTE = 00004000 SYMSK_MAXL = ae sea FI 
MACSONOMBER eeeeeeee =X 03 PSCSM_CON = FFFFFFFB SYMSK_TWOCOL = 00000010 FI 
MACSERRORLN eeeeeeee =X 03 PSCSM_DEFAULT = eo ahs SYMS$L_LINK 00000000 FI 
MACSERR eeeeeree =X 03 PSCSM_EXE = 000000C0 SYMSL_VAL 00000005 F| 
MACSERR_INTERN eeeeeeee YX 03 PSCSM_GBL = 00000010 SYMSM_ABS = BO NRe AS Fi 
MACSGETCHR eeeeeree =X 03 PSCSM_LCL = FREFFFEF SYMS$M_ASN = 00000100 F 
MACSGL_ABSFLAG ‘eteeeeee xX 03 PSC$M_LIB = B00 80008 SYMSM_CRFO = 00002000 F 
MACSGL_EXPOPVL1 seeeeeee x 03 PSCS$M_LONG = 000048 SYMSM_DEBUG = 00000020 F 
MAC$GL"LSB eeneeeee =X = 03 PSCSM_NOEXE = FFFFFFBF SYMSM_DEF = $008 1 F 
MACS$GL_PC eererere =X eH PSCSM_NOPIC = FRFFFFFE SYMSM_DELMAC = $89 $ F 
MACSGL-PSC_BLKP ‘fteeeeee § X PSCSM_NORD = FRFFFF CF SYMSM_EPT = 0 F 
MACSGL_PSC_LIST eeeeeeee xX 03 PSCSM_NOSHR = FFFFFFDF SYMSM_EXTRN = 00 . 08 F 
MACSGL_PSC_MAX eeteeeeee x 3 PSCSM_NOVEC = FRFFFDFF SYMSM_GLOBL = 3 308 F 
MACSGL_PSC"SBP ss t#eeeeeee =X 3 PSCSM_NOWRT = FEFFFEFF SYMSM_LOCAL = $ 40 F 
MACSGL_PSECT eeeceree§ =X 03 PSCS$M_OVR = 0004 M$M_ODBG = 00 $00 F 
MACSGL"PSECTPTR sevesere Xx 03 PSCS$M_PAGE = of YMSM_REF s 0 F 
MAC$GL~ VALUE eereeeee =X ; PSC$M_PIC = 001 SYMSM_RELPSECT = 080 F 
MAC SBNAM eeeeeeee =X PSCS$M_QUAD = S 4C YMSM_SUPR z 400 F 
MACSIRTOUT_1_LW eeeeeeee § X PSCSM_RD = SYMSM_WEAK = 0 F 
MACSINTOUT”X eeeeeeee xX PSCS$M_REL = 8 SYMSM_XCRF = 1 F 
MACSLAST CRANCE eeeeeeee x PSCSM_SHR = 0000 SYMSV_ABS = 0004 F 
MACSPSC_OPT_SCN 90000043 a PSCS$M_USR = PEEP Ere SYMSV_ASN = ° 08 F 
MACSPSC_RES_ERR Q000028E RG PSCSM_VEC = 000002 SYMSV_CRFO = 0000000D F 
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Symbol table a Pi 84:06:96 EMACRO. SRC APSECT.MAR; 1 . (8) 
SYMSV_DEBUG = 
SYMSV_DEF 2 
SYMSV_DELMAC = 
SYMSV-EPT = 
SYMSVIEXTRN = == 
SYMS$V_GLOBL = | 
SYM$V"LOCAL = P 
SYM$V—ODBG = P 
SYMSV_REF = P 
SYMSV_RELPSECT = P 
SYMSV_SUPR = P 
SYMSV—WEAK = P 
SYMSV_XCRF = P 
SYMSW_FLAG P 
TAB = P 
x1 = 00000400 P 
x2 = 0000000F > 
Geececeeescesesce + Pp 
! Psect synopsis ! P 
powaneorannmen aman ewe 4 
PSECT name Allocation PSECT No. Attributes > 
» OS « 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE P 
- BLANK . 00000000 ( 0.) O1 ¢ ) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE P 
SABSS 00000013 < 19.) 02 ¢ ¢ ) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE P 
MACSRO_CODE_P1 00000377 (¢ 887.) 03 ¢ -) NOPIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC LONG > 
Pw wean eene ene snmocamnconams P! 
! Performance indicators ! : 
P 
Phase Page faults CPU Time Elapsed Time . 
Initialization 5 00:00:00.0 00:00:01.47 
Command processing 128 88: 60:08" 7 00:00:04.68 
Pass 1 208 Bp: 8: 42 BR Re he ee 
Symbol table sort 2 :00:00.41 ae Fe 
Pass 2 2 00:00:00.91 88 0:04.17 
Symbol table output 29 : :00.15 BB 
Psect synopsis output :00:00.01 00:00:00.02 
Cross-reference output 333 : 98 BR: 88790 -00 
Assembler run totals 49 0:00:05. 0:00:26.6 


The working set Limit was 1350 pages. ; 

32128 bytes (63 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 431 non-local and 45 local symbols. 
436 source Lines were read in Pass 1, producing 19 object records in Pass 2. 

14 pages of virtual memory were used to define 13 macros. 


P 
P 
P 
P 
P 
a 
Pp 
P 
P 
P 
P 
P 
P 
P 
P 
p 
P 
P 
P 
P 
P 
P 


MACSAPSECT PROCESS PSECT RELATED DIRECTIVES gi Lt 1 =138% Oe 06: 96 yaneyas 


v04-00 Pa 1 
VAX=-11 Macro Run Statistics ; ” 3) 


MACRO.SR RCIAP APSECT.MAR; 1 
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! Macro Library statistics ! 


Peas econ ncenan moan neon eaneaae + 


Macro Library name Macros defined 


~$355$DUA28: 8:(MACRO.OBJJMACRO.MLB; 1 11 
$DUA28:(SYSLIB STARLET. MLB; 2 3 
Tovace (all Libraries) 14 


505 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:APSECT/OBJ=OBJ$:APSECT MSRC$:APSECT/UPDATE=(ENH$:APSECT)+LIB$:MACRO/LIB 
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